unit Principal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, Menus, RXShell, StdCtrls,
  XPStyleActnCtrls, ActnList, ActnMan, XPMan;

type
  TInicio = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    RxTrayIcon1: TRxTrayIcon;
    PopupMenu1: TPopupMenu;
    APagar1: TMenuItem;
    Calculadora1: TMenuItem;
    ConfrontarSintegra1: TMenuItem;
    Fornecedores1: TMenuItem;
    Relao1: TMenuItem;
    ECF1: TMenuItem;
    SimplesNacional1: TMenuItem;
    Restaurar1: TMenuItem;
    ToolButton6: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    ActionManager1: TActionManager;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure APagar1Click(Sender: TObject);
    procedure Calculadora1Click(Sender: TObject);
    procedure ConfrontarSintegra1Click(Sender: TObject);
    procedure ECF1Click(Sender: TObject);
    procedure Fornecedores1Click(Sender: TObject);
    procedure Relao1Click(Sender: TObject);
    procedure SimplesNacional1Click(Sender: TObject);
    procedure Restaurar1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Inicio: TInicio;

implementation

uses Apagar, calc, Confronto, forne01, relat01, simples01, unitecf, depre,
  valida, cria, confere;

{$R *.dfm}

procedure TInicio.ToolButton1Click(Sender: TObject);
begin
paga.show;
end;

procedure TInicio.ToolButton2Click(Sender: TObject);
begin
calcula.show;
end;

procedure TInicio.ToolButton3Click(Sender: TObject);
begin
confrontar.show;
end;

procedure TInicio.ToolButton4Click(Sender: TObject);
begin
fornecedor.show;
end;

procedure TInicio.ToolButton5Click(Sender: TObject);
begin
relacao.show;
end;

procedure TInicio.ToolButton9Click(Sender: TObject);
begin
inicio.hide;
end;

procedure TInicio.ToolButton10Click(Sender: TObject);
begin
halt;
end;

procedure TInicio.ToolButton7Click(Sender: TObject);
begin
simples.show;
end;

procedure TInicio.ToolButton8Click(Sender: TObject);
begin
ecf.show;
end;

procedure TInicio.APagar1Click(Sender: TObject);
begin
paga.Show;
end;

procedure TInicio.Calculadora1Click(Sender: TObject);
begin
calcula.Show
end;

procedure TInicio.ConfrontarSintegra1Click(Sender: TObject);
begin
confrontar.Show
end;

procedure TInicio.ECF1Click(Sender: TObject);
begin
ecf.Show
end;

procedure TInicio.Fornecedores1Click(Sender: TObject);
begin
fornecedor.Show
end;

procedure TInicio.Relao1Click(Sender: TObject);
begin
relacao.Show
end;

procedure TInicio.SimplesNacional1Click(Sender: TObject);
begin
 simples.Show
end;

procedure TInicio.Restaurar1Click(Sender: TObject);
begin
inicio.Show;
end;

procedure TInicio.ToolButton6Click(Sender: TObject);
begin
validador.show;
end;

procedure TInicio.ToolButton11Click(Sender: TObject);
begin
contabil.show;
end;

procedure TInicio.ToolButton12Click(Sender: TObject);
begin
deprecia.show;
end;

procedure TInicio.ToolButton13Click(Sender: TObject);
begin
conferencia.show;
end;

procedure TInicio.TrackBar1Change(Sender: TObject);
begin

AlphaBlendValue:= trackbar1.Position;
end;

end.
